library(ggplot2)
library(plyr)
library(maptools)

US_map <- readShapePoly("./US_State/map.shp")
x <- US_map@data
